#N canvas 0 30 1022 568 16;
#X obj 205 98 inlet~;
#X obj 320 90 inlet;
#X obj 232 486 outlet~;
#X obj 571 117 samplerate~;
#X obj 587 29 loadbang;
#X obj 395 451 expr~ 2*($v1-0.5);
#X obj 317 200 expr pow($f1 \, 4)*($f2/2);
#X obj 223 303 phasor~;
#X obj 689 35 bang~;
#X text 754 36 <= just while debugging;
#X obj 207 363 expr~ abs((4*$v1)-2)-1;
#X obj 214 250 *~;
#X connect 0 0 11 0;
#X connect 1 0 6 0;
#X connect 3 0 6 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 6 0 11 1;
#X connect 7 0 5 0;
#X connect 7 0 10 0;
#X connect 8 0 3 0;
#X connect 11 0 7 0;
